home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / crt.swg / 0012_Enable Blink-NOBLINK.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  566b  |  17 lines
  1. {****************************************************************************
  2.  * Procedure ..... SetBlink;
  3.  * Purpose ....... To enable blinking vice intensity
  4.  * Parameters .... None
  5.  * Returns ....... Nothing
  6.  * Notes ......... Colors with the background attribute high-bit set will
  7.  *                 blink.
  8.  * Author ........ Martin Richardson
  9.  * Date .......... October 28, 1992
  10.  ****************************************************************************}
  11. PROCEDURE SetBlink; ASSEMBLER;
  12. ASM
  13.    MOV  AX, 1003h
  14.    MOV  BL, 01h
  15.    INT  10h
  16. END;
  17.